0 IFA=0THENA=1:LOAD"+SEQ",8,1
1 IFA=1GOTO10
2 IFA=2THENA=3:LOAD"+BLOCKPAINT",8,1
3 IFA=3THENSYS16384
10 FORI=1TO11:POKE999+I,ASC(MID$("BLOCKPAINT_",I,1)):NEXT
20 SYS49152
30 A=2:GOTO2